program pgm (input, output) ;
		
	var
		chaine1:string;
		chaine2:string;
	
	begin
		writeln("Exemple de concatenation de chaine");
		write("Saisissez une premiere chaine ");
		read(chaine1);
		writeln;
		write("Saisissez une seconde chaine");
		read(chaine2);
		writeln;
		writeln;		
		chaine1 := chaine1 + chaine2; {Concatenation}
		write("La chaine concatenee est ");
		write(chaine1);
	end.



































